home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / ULOGTIME.FRM < prev    next >
Text File  |  1993-12-10  |  6KB  |  248 lines
  1. Version 1.00
  2. BEGIN Form Ulogtime
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "User Login Time"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(16)
  11.     Left         = Char(7)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(3)
  17.     Visible      = -1
  18.     Width        = Char(66)
  19.     WindowState  = 0
  20.     BEGIN ComboBox NameBox1
  21.         BackColor    = QBColor(1)
  22.         DragMode     = 0
  23.         Enabled      = -1
  24.         ForeColor    = QBColor(15)
  25.         Height       = Char(1)
  26.         Left         = Char(2)
  27.         MousePointer = 0
  28.         Sorted       = 0
  29.         Style        = 0
  30.         TabIndex     = 0
  31.         TabStop      = -1
  32.         Tag          = ""
  33.         Text         = ""
  34.         Top          = Char(1)
  35.         Visible      = -1
  36.         Width        = Char(20)
  37.     END
  38.     BEGIN Label datel
  39.         Alignment    = 0
  40.         AutoSize     = 0
  41.         BackColor    = QBColor(1)
  42.         BorderStyle  = 0
  43.         Caption      = "Login Date:"
  44.         DragMode     = 0
  45.         Enabled      = -1
  46.         ForeColor    = QBColor(15)
  47.         Height       = Char(1)
  48.         Left         = Char(25)
  49.         MousePointer = 0
  50.         TabIndex     = 1
  51.         Tag          = ""
  52.         Top          = Char(1)
  53.         Visible      = -1
  54.         Width        = Char(11)
  55.     END
  56.     BEGIN Label Timel
  57.         Alignment    = 0
  58.         AutoSize     = 0
  59.         BackColor    = QBColor(1)
  60.         BorderStyle  = 0
  61.         Caption      = "Login Time:"
  62.         DragMode     = 0
  63.         Enabled      = -1
  64.         ForeColor    = QBColor(15)
  65.         Height       = Char(1)
  66.         Left         = Char(25)
  67.         MousePointer = 0
  68.         TabIndex     = 2
  69.         Tag          = ""
  70.         Top          = Char(4)
  71.         Visible      = -1
  72.         Width        = Char(11)
  73.     END
  74.     BEGIN TextBox DateText
  75.         BackColor    = QBColor(1)
  76.         BorderStyle  = 1
  77.         DragMode     = 0
  78.         Enabled      = -1
  79.         ForeColor    = QBColor(7)
  80.         Height       = Char(3)
  81.         Left         = Char(36)
  82.         MousePointer = 0
  83.         MultiLine    = 0
  84.         ScrollBars   = 0
  85.         TabIndex     = 3
  86.         TabStop      = -1
  87.         Tag          = ""
  88.         Text         = ""
  89.         Top          = Char(0)
  90.         Visible      = -1
  91.         Width        = Char(21)
  92.     END
  93.     BEGIN TextBox TimeText
  94.         BackColor    = QBColor(1)
  95.         BorderStyle  = 1
  96.         DragMode     = 0
  97.         Enabled      = -1
  98.         ForeColor    = QBColor(7)
  99.         Height       = Char(3)
  100.         Left         = Char(36)
  101.         MousePointer = 0
  102.         MultiLine    = 0
  103.         ScrollBars   = 0
  104.         TabIndex     = 4
  105.         TabStop      = -1
  106.         Tag          = ""
  107.         Text         = ""
  108.         Top          = Char(3)
  109.         Visible      = -1
  110.         Width        = Char(21)
  111.     END
  112.     BEGIN CommandButton OKButton
  113.         BackColor    = QBColor(7)
  114.         Cancel       = 0
  115.         Caption      = "OK"
  116.         Default      = 0
  117.         DragMode     = 0
  118.         Enabled      = -1
  119.         Height       = Char(3)
  120.         Left         = Char(26)
  121.         MousePointer = 0
  122.         TabIndex     = 5
  123.         TabStop      = -1
  124.         Tag          = ""
  125.         Top          = Char(10)
  126.         Visible      = -1
  127.         Width        = Char(12)
  128.     END
  129.     BEGIN CommandButton ExitButton
  130.         BackColor    = QBColor(7)
  131.         Cancel       = 0
  132.         Caption      = "Exit"
  133.         Default      = 0
  134.         DragMode     = 0
  135.         Enabled      = -1
  136.         Height       = Char(3)
  137.         Left         = Char(42)
  138.         MousePointer = 0
  139.         TabIndex     = 6
  140.         TabStop      = -1
  141.         Tag          = ""
  142.         Top          = Char(10)
  143.         Visible      = -1
  144.         Width        = Char(11)
  145.     END
  146. END
  147. DECLARE SUB Okbutton_click ()
  148. '$FORM Netdemo
  149. TYPE ConInfo
  150.       connectnum AS INTEGER
  151.       ReturnCode AS INTEGER
  152.       ObjectType AS INTEGER
  153.       ObjectName AS STRING * 48
  154. END TYPE
  155. TYPE logtime
  156.       connectnum AS INTEGER
  157.       ReturnCode AS INTEGER
  158.       year AS INTEGER
  159.       month AS INTEGER
  160.       daydate AS INTEGER
  161.       hour AS INTEGER
  162.       minute AS INTEGER
  163.       second AS INTEGER
  164.       day AS INTEGER
  165. END TYPE
  166. DECLARE SUB GetConnectionInfo (Info AS ConInfo)
  167. DECLARE SUB GetLoginTime (LoginTime AS logtime)
  168.  
  169. SUB ExitButton_Click ()
  170. UlogTime.HIDE
  171. Netdemo.SHOW
  172. END SUB
  173.  
  174. SUB Form_Load ()
  175. DIM Info AS ConInfo
  176. DIM num1 AS STRING * 4
  177. FOR i% = 1 TO 100
  178. Info.connectnum = i%
  179. CALL GetConnectionInfo(Info)    'Call the Procedure
  180. name$ = RTRIM$(Info.ObjectName$)
  181. strlen% = LEN(name$)
  182. Name2$ = MID$(name$, 3, strlen%) 'Strip the Nul chars.
  183.  
  184. name1% = INSTR(name$, "NOT-LOGGED-IN")
  185.  
  186. IF name1% > 0 THEN GOTO notconnected
  187. IF Info.ObjectType = 1 THEN
  188. num1 = STR$(Info.connectnum)
  189. NameBox1.ADDITEM num1 + Name2$
  190. NameBox1.Listindex = 0
  191. END IF
  192. notconnected:
  193. NEXT i%
  194.  
  195.  
  196. END SUB
  197.  
  198. SUB NameBox1_Click ()
  199. datetext.text = " "
  200. timetext.text = " "
  201. END SUB
  202.  
  203. SUB Okbutton_click ()
  204. DIM LoginTime AS logtime
  205.  
  206. LoginTime.connectnum% = VAL(MID$(NameBox1.text, 1, 4))
  207.  
  208. CALL GetLoginTime(LoginTime)
  209. IF LoginTime.ReturnCode <> 0 THEN
  210.      msg$ = "Invalid User. Please choose a user from the list."
  211.      MSGBOX msg$
  212.      GOTO NoUser
  213. END IF
  214.  
  215.  
  216. IF LoginTime.day% = 0 THEN dayofweek$ = "Sunday"
  217. IF LoginTime.day% = 1 THEN dayofweek$ = "Monday"
  218. IF LoginTime.day% = 2 THEN dayofweek$ = "Tuesday"
  219. IF LoginTime.day% = 3 THEN dayofweek$ = "Wednesday"
  220. IF LoginTime.day% = 4 THEN dayofweek$ = "Thursday"
  221. IF LoginTime.day% = 5 THEN dayofweek$ = "Friday"
  222. IF LoginTime.day% = 6 THEN dayofweek$ = "Saturday"
  223. IF LoginTime.hour% > 12 THEN
  224.     LoginTime.hour = LoginTime.hour - 12
  225.     ampm$ = "pm"
  226. ELSE
  227.     ampm$ = "am"
  228. END IF
  229.  
  230. hour$ = LTRIM$(STR$(LoginTime.hour%))
  231. IF LoginTime.minute > 9 THEN
  232.     minute$ = LTRIM$(STR$(LoginTime.minute%))
  233. ELSE
  234.     minute$ = "0" + LTRIM$(STR$(LoginTime.minute%))
  235. END IF
  236. IF LoginTime.second > 9 THEN
  237.     second$ = LTRIM$(STR$(LoginTime.second%))
  238. ELSE
  239.     second$ = "0" + LTRIM$(STR$(LoginTime.second%))
  240. END IF
  241.  
  242. 'dayofweek$; logintime.month%; logintime.daydate%; logintime.year%; logintime.hour%; logintime.minute%; logintime.second%; ampm$
  243. datetext.text = dayofweek$ + " " + LTRIM$(STR$(LoginTime.month%)) + "/" + LTRIM$(STR$(LoginTime.daydate%)) + "/" + LTRIM$(STR$(LoginTime.year%))
  244. timetext.text = "  " + hour$ + ":" + minute$ + ":" + second$ + " " + ampm$
  245. NoUser:
  246. END SUB
  247.  
  248.